bfil{.8 setlinewidth 1 setlinecap{moveto 5 5 rlineto -5 0 rmoveto 5 -5 rlineto stroke} cells}raster


bfil{/Courier-Bold findfont 9 scalefont setfont 1 -1 scale{moveto 2 5 rmoveto(?)show} cells}raster


bfil{/Courier-Bold findfont 9 scalefont setfont 1 -1 scale{moveto 2 5 rmoveto($)show} cells}raster


bfil{{4 add moveto 4 -4 rlineto 4 4 rlineto -4 4 rlineto closepath fill} cells}raster


bfil{{4 add moveto 3.5 -3.5 rlineto 3.5 3.5 rlineto -2 0 rlineto 0 3 rlineto -3 0 rlineto 0 -3 rlineto closepath fill} cells}raster


bfil{{exch 3.5 add exch 3.5 add 2.5 0 360 arc closepath fill} cells}raster


bfil{.8 setlinewidth{exch 3.5 add exch 3.5 add 2 0 360 arc closepath stroke} cells}raster


bfil{4.0 4 1 .8 sqrt 112.5 lines}raster


bfil{4.0 8 1 .5 sqrt -45 lines 4.0 8 1 1 0 lines}raster


bfil{4.0 8 4 .5 sqrt 45 lines 4.0 8 4 .5 sqrt -45 lines}raster


bfil{4.0 8 3 .5 sqrt 45 lines 4.0 8 3 .5 sqrt -45 lines}raster


bfil{4.0 8 2 .5 sqrt 45 lines 4.0 8 2 .5 sqrt -45 lines}raster


bfil{4.0 8 1 .5 sqrt 45 lines 4.0 8 1 .5 sqrt -45 lines}raster


bfil{4.0 4 2 .5 sqrt 45 lines}raster


bfil{4.0 4 1 .5 sqrt 45 lines}raster


bfil{4.0 8 4 .5 sqrt 45 lines}raster


bfil{4.0 8 3 .5 sqrt 45 lines}raster


bfil{4.0 8 2 .5 sqrt 45 lines}raster


bfil{4.0 8 1 .5 sqrt 45 lines}raster